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5 1 01 MODULE ACPCNTRL ( 

3 ¢ 8 LAN GUAGE (BL 18836) » 

; IDENT 

5 4 Ope d= 

: é O06 ; BEGIN 

4 ' 

: 3 008 es een ee a 
° :* & 
s 0 010 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 B ® 
s 11 011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
3 1 Big ! - ALL RIGHTS RESERVED. * 
Pi} ; ra 
; % 014 1 !* THIS porranne iF FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. ae 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE oa 2 uate THE * 
ta B98 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
3 17 001 1 !* COPIES THEREOF +g NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE 70 ANY * 
FH 18 0018 1 !* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 1S +d : :* TRANSFERRED. * 
> i 4 
3 st B6] 1 !e phe | ete IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
$ $§ 00 ¢ 1 !® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
3 $7 b05% : ;* CORPORAY ION. * 
3 : * 
3 $¢ 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + atau OF ITS * 
; $8 0097 : 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
Py 4 ea 
; ee 0028 1 !* * 
4 9 594 1 LRA RRA RAAARAEA AREER REAR AAAE AAA AAA AAA AA AAAAAAAAEAAAEKEAAAHEAERAEEE 
PR ati 

; 32 005¢ 1} 

Se 0033 1 ! FACILITY: F11ACP Structure Level 2 

3 $e 0034 1! 

s 5 0035 1 | ABSTRACT: 

is 0036 1} 

; 3 44 ! This module implements the ACP control I/0 function. 

: 39 0039 | ENVIRONMENT : 

3; (41 0041 1! STARLET operating system, including privileged system services 

3 ¢g 0042 1! and internal exec routines. 

eee 0045 1! 

Pa Ie 

> 46 0046 1 

; 4 Ooee : : AUTHOR: Andrew C. Goldstein, CREATION DATE: 23-May-1979 17:07 

5 49 0049 MODIFIED BY: 

; 1 $081 1 v03-020 Fesoot# Christian D. Saether 4-Aug-1984 

3 26 O236 1! Fix a bug in lock_volume which can leave current _ucb 

,  F Bne 2 zero on incompleté volume sets 

3 $0 bee : Modify l_map_pointer Linkage to declare notused registers. 

: 56 0086 1 i v03-019 ACG0438 Andrew C. Goldstein, 18-Jul-1984 19:21 

5 57 057 1! Add cache flush control function; use central routine 


16 
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¥04-000 1a78ep- 1982 $3:30508 EP Tix'sRedRbpearke :35, an 
: os R28 } for all simple $DEQ's. 
: 60 060 1 i v03-018 CWwH3018 CW Hobbs 27-Jul-1984 
: 6) 883 : } Fix broken branch. 
; 8 SS 1 i v03-017 CDS0009 Christian D. Saether 8-May-1984 
; 66 e 1! Set NOALLOC on Lock_vol function to prevent the 
; 065 1! process that holds fhe lock from modifying the 
; 66 +4: volume structure itself. 
; oF 067 1! 
; 68 0068 1! v03-016 CDS0008 Christian D. Saether 27-Dec-1983 
3 4 9 1! Use BIND_COMMON macro. Adjust routine and external 
; 4 Bey } declarations. 
; es 007¢ 1 v03-015 cDS0007 Christian D. Saether 18-Oct-1983 
ees. 0075 1! Clear NOALLOC on unlock to be more compatible with 
. = Boe 1! previous behavior. 
; 75 075 1! 
s Bore 1! v03-014 CDS0006 Christian D. Saether 17=0¢t-1983 
Se i a 0077 1! Do request block checking here except for null 
a 0078 1! control function. 
; 79 0079 1! Also update volume free space in value block on 
; go 4's : unlock function to correctly propagate through cluster. 
: 8 008¢ | i v03-013 CDS0005 Christian D. Saether 14-Oct-1983 
; § 0083 1! LOCK_VOL now blocks all volume modification activity 
: Be Bone ; } instead of setting NOALLOC flag. 
: 86 0086 1: v03-012 CDS0004 Christian D. Saether 3-0ct-1983 
; 44 se $4 : : Take out allocation lock prior to reading SCB. 
: 89 0089 1! v03-011 CDS0003 Christian D. Saether 14-Sep-1983 
: 4 Boas : Modify interface to SERIAL_FILE. 
: 9 0092 1: v03-010 cps0002 Christian D. Saether 5-May-1983 
; 0095 1! Interlock presseg*ne on REMAP_FILE call with 
; oe Bo9¢ } } SERIAL_FILE routine. 
: 9% 0096 1 v03-009 ¢DS0001 Christian D. Saether 6-Jan-1983 
; 0097 1! Changes to accomodate cluster dismount. Decrement 
; oS Bbo5 : write counter in the SCB. 
: 100 0100 1! v03-008 LMP0027 L. Mark Pilant, 18-May-1982 11:20 
; 101 bis 1! Rearrange some code sequences to avoid the possibility of 
3 136 B108 : taking a page fault at an elevated IPL. 
3 104 0104 1! v03-007 ACG0285 Andrew C. Goldstein, 12-Apr-1982 17:24 
; 105 0105 1! Fix cathedral window logic for empty headers, 
3 198 198 : : do not unlock volume if there is no storage map 
: 108 198 1! v03-006 LMP0019 L. Mark Pilant 1-Apr-1982 14:20 
; 109 1 1: Correct a boundary condition that would cause windows to 
: 19 By ’ be corrupted. 
: 118 118 1 i v03-001 LMP0016 L. Mark Pilant 25-Mar-1982 13:35 
511 113 13 Remove diddling of the COMPLETE bit in the window segments. 
s 114 0114 1! Also, fix a bug that caused the system to crash if a remap 
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14-Sep-1984 

was forced on a file whose corresponding window did not start 
with VBN 1. 

v02-004 LMP0012 L. Mark Pilant 15-Mar-1982 16:00 
Add a routine to set WCBSM_COMPLETE in all the window 
segments if the remap succéeds. 

v02-003 LMPO003 L. Mark Pilant, 25-Nov-1981 11:40 
Add routine to remap a file into multiple windows. 

V02-002 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:24 
Previous revision history moved to F11B.REV 


ose setOnARy sh 18.52": 
*SRCS$:FCPDEF .B32'; 


of control function codes recognized by this module. 


MIN_CNTRLFUNC = MINU ( 


“REMAP, 
$C"FLUSH, CACHE 


MAX_CNTRLFUNC = MAXU ( 


C“DSA-QUOTA, 
“REMAP, 
C~FLUSH. CACHE 


$ 
$ 
$ 
$C_MOD_ ° 
+ REM_QUOTA, 
$ 
$ 


it 
z 
— 
z 
Cc 
~~ 


MIN_CACHE_CODE 


" 
z 
oe 
c 
~ 


MAX_CACHE_CODE 


aspen 1$:R00-| 964 25:58:85 YONG RLAgas 32 v4. 5749 Pace 4 


. % 11 1 FORWARD R i 

s 4 1 1 tall ROL : L_NORM, ' ACPCONTROL function rousing 

, ¥ 1 1 2 if =NORE ! do volume dismount processing 

: 175 1165 1 VOLUME ' Lock or unlock volume 

: 176 1166 1 HARK: CATHEDRAL : NOVALUE, i flag window as being cathedral 

; 17 1167 1 ADD_QINDOW VALUE ! add a window to the queue 

. 178 1168 #1 REMOVE WINDOW :  NOVALHE: ! remove and deallocate a window eee 
: 179 1169 1 LAST_SEGMENT : NOVALUE; ! set the window as the last segmen 
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; } 1 1179 } GLOBAL ROUTINE ACPCONTROL : L_NORM = 

 % ; 1126 1 !4+ 

e..9 W753 3! 

; : 5 1328 ! FUNCTIONAL DESCRIPTION: 

3 189 1128 1; This routine implements the ACP control 1/0 function. It sets up 

; 13 ee : context and dispatches on the control function. 

; 190 1179 1 ! CALLING SEQUENCE: 

; 19 1180 1! ACPCONTROL () 

; 135 1181 1! 

3, 6UT9 11 § 1 ! INPUT PARAMETERS: 

> 194 1185 1! NONE 

; 195 Wiae 1! 

; 196 1185 1 ! IMPLICIT INPUTS: 

; 197 1186 1! CLEANUP_FLAGS: cleanup action and status flags 

; 138 a 14 ! IO_PACKET: address of 1/0 request packet 

: 200 1189 1 ! OUTPUT PARAMETERS: 

; 201 1190 1! NONE 

; 4 1191 1! 

; 20 1138 1 ! IMPLICIT OUTPUTS: 

: 204 1193 1! NONE 

3 a0 11946 1! 

; 0S 1195 1 ! ROUTINE VALUE: 

5 $9 1196 1! assorted status values 

: 208 1197 1! 

; 209 1198 1°! SIDE EFFECTS: 

; 210 1199 1! control function executed 

s 2vi 1200 1! 

: sig 1201 1 !-- 

s 6¢t 1 o 1 

3 sie 120 BEGIN 

3 aus 1204 

; $1$ 1205 LOCAL 

3 a 1206 FIB : REF BBLOCK, ! address of user FIB : 

g $18 1207 ABD : REF BBLOCK, ! address of buffer descriptor _ 

3 y 1s08 STATUS; ! return status from called routine 
: H : 19 BIND_COMMON; 

; s 1 12 EXTERNAL ROUTINE 
3 4 121 START REQUEST =: L_JSB_ADDRESSING_MODE (GENERAL), ! request blocking check 
3 5 1214 SERIAL_FILE : LINORM, ' Serialize file processing 

3 6 1215 GET_FIB : LINORM, ! get user FIB 
B der 1 1 REMAP _FILE  LINORM NOVALUE,! remap the file into segmented windows 
3 8 121 QUOTA_FILE_OP : L_NORM, : quota file maint operation 

; 9 1218 CONN_GFILE : LINORM, ' connect quota file 

3 1219 ALLOTATION_LOCK : L-NORM, ' acquire volume allocation lock 

3 1 1220 DELETE _FID : L_NORM, ! free file ID or flush file ID cache 
: ¢ 1221 PURGE _EXTENT : LINORM, ! purge out extent cache 

3 : § FLUSH_QUO_CACHE : L_NORM; ! flush out quota cache 

; 235 1224 

$ 1225 ! Set up control block pointers. If there is no complex buffer packet, then 
; 1226 ! this is an 1/0 kill call, which is a NOP. 
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IF NOT .10_PACKETCIRPSV_COMPLX] THEN RETURN 1; 


ABD = .BBLOCK f.10 5 PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); 
FIB = GET_FIB ; 


IF ae CNTRLFUNC] EQL 


4 srs LOCK CIO_PACKETCIRPSW_FUNCI, 108v. _DMOUNT] 
re THEN RETURN 'O7 NOP 
4 ! Case on the control function and stall for the volume blocking lock 
2 as necessary. 
5 . 
2 AOE FOL) 18h IES FROM MIN_CNTRLFUNC TO MAX_CNTRLFUNC OF 
5 
CFIBSC_ADD_QUOTA]: BEGIN 
5 IF .BLOCK_LOCKID EQ. 0 
5 THEN 
5 BEGIN 
6 START_REQUEST (); 
6 BLOCK_CHECK = 1; 
6 END; 
6 END; 
CINRANGE, OUTRANGE): 0; 


TES; 


oon LEE EES 


2 
5 
26 IF .BBLOCK CIO an tb | ete FUNC], IO$V_DMOUNT) 
$7 THEN RETURN DISMOUNT (); 
Dispatch on the control function. 
f ! 
$72 CAGE 2 EL? 1ERE_OEML NE FROM MIN_CNTRLFUNC TO MAX_CNTRLFUNC OF 
7 
CF IBSC_REMAP): BEGIN 
LOCAL 


FCB : REF BBLOCK; 

FCB = .CURRENT_WINDOW CWCBSL_FCB; 
PRIM_LCKINOX = SERIAL_FILE (FCB CFCBSW_FIDJ); 
REMAP_F ILE QO; 


SRAVAS Sa 


w 


CF IB$C_LOCK_VOL 
FIBSC"UNLK-VOLJ: BEGIN 
IF NOT CLEANUP ELAGSECLE SYSPRV] 
THEN ERR EXIT (SS$_NOPRIV 
KERNEL _ CALL (LOCK STOLUME. °F IBCF IB$SW_CNTRLFUNC)); 
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CNTRL 18-se -1984 23:52:5 AX-11 Bliss-32 V4.0-74 Page 
-000 14-Sep-1984 13:36:08 LENix shejatpenre 03224 ° 
5 1284 
96 5 CFIBSC_ENA_QUOTA]: CONN_QFILE (.ABD, .FIB); 
38 1589 CF IB$SC_ADD_QUOTA, 
1088 F IBSC~EXA~QUOTA, 
00 1289 FIBSC~MOD~ . 
01 1290 F IBSC_-REM~QUOTA 
0¢ 4 FIBSC-DSA-QUOTAS: QUOTA_FILE_OP (.ABD, .FIB); 
04 1 38 CF IBSC_FLUSH_CACHE): 
05 1294 BEGIN 
06 1295 ALLOCATION LOCK (); 
0 1096 CASE .FIBCFIBSL_CNTRLVALJ 
08 1297 FROM MIN_CACHE_CODE TO MAX_CACHE_CODE OF 
09 1298 SET 
10 1299 
1 90 “FIBSC_FID_CACHE]: DELETE_FID (0); 
1§ 0¢ CF iBSC_EXTENT_CACHEJ: PURGE_EXTENT (0,0); 
15 1304 CF IBSC_QUOTA_CACHEJ: FLUSH_QUO_CACHE (); 
17 1306 CINRANGE 
18 44 OUTRANGE): ERR_EXIT (SS$_ILLIOFUNC); 
20 1309 TES; 
21 1310 END; 
32 1311 
2 1 1 C INRANGE 
34 1313 OUTRANGE): ERR_EXIT (SS$_ILLIOFUNC); 
26 1315 TES; 
37 1316 
8 1317 3 RETURN 1; 
$9 1318 
0 1319 1 END; ! end of routine ACPCONTROL 
.TITLE ACPCNTRL 
SIDENT \V04-000\ 
.EXTRN START_REQUEST, SERIAL_FILE 
~EXTQAN GET_FIB, REMAP_FIL 
“EXTRN QUOTA _FILE_OP,~CONN_QFILE 
TEXTRN AL LOCATIONZLOCK 
SEXTRN DELETE FID, PURGE_EXTENT 
TEXTAN FLUSH_CUO_CACHE 
.PSECT $CODES,NOWRT,2 
000¢ 9009 .ENTRY ACPCONTROL, Save R2,R3 ; 
50 90 AA 06 000 MOVL ==11 (BAS y, RO ; 
03 2a AO 03 ; 6 06 BBS #3, 42(R0), 28 ; 
00E8 31 0000B 18: BRW 20 ; 
53 2c 9 DO ODODE 2$: MOVL  @44(RO), ABD ; 
5 DD 0001 PUSHL ; 
00006 CF 1 FB 0001 CALLS #1, GET_FIB ; 
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250 bytes, Routine Base: 


; Routine Size: 
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ROUTINE DISMOUNT : L_NORM = 


+ 
+ 


FUNCTICNAL DESCRIPTION: 


This routine handles the DISMOUNT subfunction of the ACPCONTROL 
function, It reads the volume's storage control block, clears the 
status bits, and rewrites the block to indicate that the volume 

has been property dismounted. (Once a volume is marked for dismount, 
all deferred write cacheing, etc., is turned off.) 

The file ID, extent, and quota caches are also flushed. 
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H 1320 1 

: } 1 : 

3 1358} | 

; 1324 1! 

H 1525 7! 

H 1326 1! 

; i? et 

: 1328 1! 

; 1329 1! 

; 1350 3! 

3 1331 i 

; 1552 1! 

; 1338 1! 

3 1334 1 ! CALLING SEQUENCE: 

: 1335 1! DISMOUNT () 

; 1336 (1! 

; 1337 1 ! INPUT PARAMETERS: 

: 1338 1! NONE 

: 1339 1! 

: 1340 1°! IMPLICIT INPUTS: 

3 13541 1! CURRENT_VCB: VCB of volume 

; 1306 : } CURRENT_UCB: UCB of volume 

; 2 1344 1 | OUTPUT PARAMETERS: 

; 2 1345 1! NONE 

; 3 1346 1 | | 
a 1347 1°! IMPLICIT OUTPUTS: 

Pa de 

; 362 1350 1 ' ROUTINE VALUE: 

3 $07 1303 : } 1 if success 

; 365 1383 1 i SIDE EFFECTS: 

; «(366 1354 1! storage control block rewritten 

: 367 1355 1! 

: 369 1387 J 

371 1359 § CEGIN | 
: 37 1360 2 LOCAL ey: | 
3 a2 13! 2 : REF BBLOCK; ! buffer containing storage control block 

; if 1368 BIND_ COMMON; | 
; 377 1365 2 EXTERNAL ROUTINE ; 
3; «Se 1366 ALLOCATION_LOCK : L_NORM, ! synchronize allocation/deallocation 
; 1367 2 DELETE FID : LLNORM, : free file ID or flush file ID cache 
; 380 1368 PURGE _EXTENT : LINORM, ' purge out extent cache 

; 381 1369 FLUSH QUO CACHE : L_NORM, : flush out quota cache 
; 1370 READ _BLOCR : LINORM, ! read a dis 
; 3 1371 WRITE BLOCK L-NORM, ' write a disk block 

; ae 1378 CHECKSUM L-NORM; ! compute block checksum 

; 386 1374 | 
; io 1375 ! Flush the caches and clear the SCB flags if the volume is not write 
; 388 1376 ! Locked or allocation locked. 


---- 


ACPCNTRL 
y04+000 
89 77 ! 
90 4 
91 7 IF NOT (. CURRENT 
80 OR -BBLOT 
81 THEN 
94 Hf BEGIN 
ALLOCATION_L 
84 DELETE FID ¢ 
85 PURGE _EXTENT 
i, FLUSH_QUO_CA 
88 SCB = READ BL 
89 SCB CSCBSW_WR 
402 90 IF .SCB CSCBS 
402 391 THEN 
4 335 SCBCSCBSL 
405 9 CHECKSUM (.SC 
4 394 WRITE_BLOCK ( 
407 395 END; 
408 396 
409 397 21 
410 398 1 END; 
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; Routine Size: 91 bytes, 
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38 
00006 
00006 


00006 
00006 


34 
00006 


00006 
00006 


Routine Base: 


ai 


F 
15- 
14- 


CVCBS$V_NOALLOC) 


CURRENT_UCBLUCBSL_DEVCHAR], DEV$V_SWLJ) 


98 
2) 


98 


20 
18 


0); 

); 

a - CURRENT ve 
CNT 
welt! EQL 
= 0; 


BSL_S 
W URI 


! end of routine DISMOUNT 
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AX-11 Bliss-32 V4.0-74 Page 11 
F11X, she ait CPCNTRL .B32; " (3) 
| 
j 
, BITMAP_TYPE); 
| 
| 
READ BLOCK, WRITE_BLOCK 
CHECRSU 
Save R2 : 1320 
-104(BASE), RO : 1379 
#4, 11(RO), 2$ ; 
7 108(BASE). RO : 1380 
#i, 59(RO) 3 
#0 ALLOCATION. LOCK : 1383 
-(§P) + 1384 
#1, DELETE_FID : 
-(§p + 1385 
#2, PURGE_EXTENT : 
#0; FLUSH7QUO_CACHE + 1386 
a : 1388 
-104(BASE), RO : 
#1, 52(R0). -(SP) : 
#3, READ_BLOCK ; 
RO, SCB : 
32(SCB) : 1389 
Se iscey : 1399 
rt CHECKSUM ; 139 
3c WRITE_BLOCK z 19 
i. RO” : 1398 
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GLOBAL ROUTINE REMAP_FILE : NOVALUE L_NOR 


'e4 
' 


i FUNCTIONAL DESCRIPTION: 
This routine is called when it becomes necessary to guarantee that 


the entire file is sapped. This is done by creating, if necessary, 
multiple WCB's and Linking them together. 


CALLING SEQUENCE: 
REMAP_FILE () 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
PRIMARY_FCB: address of the current primary FCB 
CURRENT_WINDOW: address of the current primary window segment 


i 

i 

i 

' 

i 

i 

' 

i 

i 

i 

i 

i 

i 

i 

! OUTPUT PARAMETERS: 
none 

! IMPLICIT OUTPUTS: 
none 

' ROUTINE VALUE: 
none 
SIDE EFFECTS: 
' 
le 


As many WCB's as are needed are allocated and linked to provide 
mapping for the extire file. Any errors are noted for the user. 


BEGIN 
LINKAGE 
L_MAP_POINTER_A = JSB: 
GLOBAL (HEADER_COUNT = 6, HDR_LBN = 7, HEADER_POINTER = 8) 
NOTUSED (2,3,475,9,10,11); 
GLOBAL REGISTER 
HEADER COUNT 6, } retrieval pointer count 


retrieval pointer start LBN 


: 
HEABDER_POINTER 8 : REF BBLOCK; ' pointer into map area 


LABEL 


HEADER_CHECK Loop to check window/header correspondence 


Pr WINDOW TRUNCATE; ! Loop to match up last FCB with a window 
WINDOW SEGMENT : REF BBLOCK, ! address of the next window segment 
OLD_WIRDOW : REF BBLOCK, ! the original window 
NEW_WINDOW : REF BBLOCK, ! the new window List 

: REF BBLOCK, ' address of the current FCB 
LAS’. CB : REF BBLOCK, ! address of the last FCB 
HEADER : REF BBLOCK, ! address of the header owned by an FCB 
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1 

1 
HEADER_VBN, ! current VBN in the header 
NEXT_ SEGMENT : REF BBLOC ! address of the segment after the next 
WINDOW_POINTER : REF BBLOC ! address of the window map area 
WINDOW_VBN current VBN in the window 


WINDOW"ENDVBN; ending VBN of the window 

BIND_ COMMON; 

EXTERNAL ROUTINE 
DEALLOCATE L_NORM, ! deallocate a block of memory 
READ_HEADER L_NORM, ! read a file header specified by FCB 
TURN_WINDOW : LNORM, ! map the file header specified 
MARK COMPLETE =: L_NORM NOVALUE ; ! mark all windows as complete 
MARK_INCOMPLETE : L_NORM; ! mark all window segments as incomplete 


EXTERNAL ROUTINE 
GET_MAP_POINTER : L_MAP_POINTER_A; 


Make sure that a file is there. 


! get next pointer from header 


F .CURRENT_WINDOW EQL 0 THEN ERR_EXIT (SS$_FILNOTACC); 
Make sure it is actually necessary to do the remap operation. 


——— — 


IF .CURRENT WINDOWCWCBSV_COMPLETE) 
AND .CURRENT_WINDOWCWCBSV_CATHEDRAL] 
THEN RETURN; 


! If there is a file accessed, try to build any necessary window segments. 

! There are three cases which can arise in trying to remap the entire file. 

' 1) The window completely maps the file but it was not required to; in this 
! case it is simply necessary to set WCBSV_CATHEDRAL. 2) The window was 

' previously complete, but is no longer due to an extension of the file; in 

! this case is is necessary to add the new window pointers to the last window 
! segment (which may be the primary window). 3) The file was never completely 
: igi In this case there are no special special conditions to consider. 

' ALL that is necessary is to traverse the Linked FCB's to build the window 
segments. 


First case; WCBSV_COMPLETE is set. Simply set WCBSV_CATHEDRAL and return. 
Hf: CURRENT _WINDOULUCESY COMPLETE) AND NOT .CURRENT_WINDOWCWCBSV_CATHEDRAL) 


BEGIN 
KERNEL_CALL (MARK_CATHEDRAL, .CURRENT_WINDOW); 
RETURN; 


! Second case; the file was previously mapped complete. Locate the FCB which 
corresponds to the last window segment and start adding from there. 


IF .CUR"NT_WINDOWCWCBSV_CATHEDRAL) 
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FCB = .LAST FCB; 
HEADER = READ_HEADER (0, .FCB), 
HEADER_VBN = -FCBLFCBSL.STVB" 


wiv 
tr a 


4 


CHECK; 

“MPOFFSET] + .HEADERLFH2$B_MAP_INUSE]) * 2 
BEGIN 

GET_MAP_POINTER (); 

IF [WINDOW ENDVBN GEQ .HEADER_VBN 

AND .WINDOO ENDVBN LSS .HEADER_VBN + .HEADER_COUNT 

THEN LEAVE READER CHECK; 

HEADER_VBN = .HEADER_VBN + .HEADER_COUNT; 


END 
FCB = .FCBCFCBSL_EXFCB); 


The last VBN Senpee does not have a corresponding FCB. In this case it 
: necessary to locate the window segment that corresponds to the Last 
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voc“ Vargo 188e F3i86:08 LATTA BER RER rt B3544 age 3 
3 $ 313 THEN 
14 BEGIN 
528 15 WINDOW SEGMENT = .CURRENT_WINDOW; 
é , 1 FCB = .PRIMARY_FCB; 
531 18 UNTIL .WINDOW SEGMENTCWCBSL_LINK] EQL 0 
5 ¢ 51 DO WINDOW SEGMENT = .WINDOW- SEGMENTCWCBSL_LINKI; 
: 2 y NEW_WINDOQ = .WINDOW_SEGMENT; ! remember current end point 
232 5 ¢ WINDOW_ENDVBN = .WINDOW SEGMENTCWCBS$L_STVBNI; 
536 5 WINDOW_POINTER = .WINDOQ oe fore + WCBSC_MAP; 
230 2 ¢ wsonge Spa -WINDOW_ SEGMENT WCBSW_NMAP J To 1 DO 
539 5 § WINDOW_ENDVBN = .WINDOW ENDVBN + .WINDOW_POINTERCWCB$W_COUNT); 
540 5 WINDOW _POINTER = -WINDOQ_POINTER + 6; 
1 é : END; 
g 530 HEADER_CHECK: BEGIN 
: 23) LAST_FCB = .FCB; ! in case only 1 FCB 
6 238 BEGIN 
7 534 IF .FCBCFCBSL_STVBN] GTR .WINDOW_ENDVBN THEN EXITLOOP 0; 
8 535 LAST_FCB = .FCB; 
9 536 B = .FCBCFCBSL_EXFCB); 
0 537 END 
; 538 UNTIL .FCB EQL 0; 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 


Bi NOOU_ TRUNCATE : BEGIN 


BEGIN 

WINDOW VBN = .WIND@! SEGMENTCWCBS$L_STVBNI; 
IF .WIRDOW VBN EQL .AEADER VBN THEN LEAVE WINDOW_TRUNCATE; 
WINDOW POINTER = .WINDOW SEGMENT + WCBSC_MAP; 
DECR J-FROM .WINDOW_SEGMENTCWCB$W_NMAP) TO 1 DO 


BEGIN 
WINDOW _VBN = .WINDOW_VBN + .WINDOW_POINTERCWCBSW_COUNTI; 
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WINDOW_SEGMENT = .CURRENT_WINDOW; 
| 
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v04+000 14- ~3ep-1986 $3: 36:5 ff F11X.SRCJACPCNTRL.B32;1 ° - 
; S85 1320 7 WINDOW POINTER = .WINDOW POINTER + 6; 

3 eee 4 f 1 «WINDOW VBN EQL .HEADER_VBN THEN LEAVE WINDOW_ TRUNCATE; 
; 286 1378 6 WINDOW. SEGMENT = «WINDOW SEGMENTCWCBSL_LINKI; 
; 988 1928 UNTIL .WINDOW_SEGMENT EQL 0; | 
3 aay 1320 BUG_CHECK (WCBFCBMNG, FATAL ‘WCB/FCB correspondence broken’); | 
: 39¢ 1379 B END; ! end of block WINDOW_ TRUNCATE 
> 394 1581 4 : The window which corresponds to the Last FCB has been found. Truncate the | 
; 3 1286 4 current window and remove any succeeding window segments. 

; 596 1583 4! 

;. er 1584 4 

: 598 1585 4 FCB = gael FCB 

; 599 1586 4 NEXT ENT = * WINDOW SEGMENTCWCBSL_LINK]; 

; 600 1587 4 KERNELS CALL (LAST _ SEGMENT he .WINDOW_ SEGMENTS; ! current segment is now the end 

; 601 1588 4 UNTIL TNEXT_SEGMERT EQL 0 

; 60 1589 4 dO 

; 60 1590 5 BEGIN 

; 604 1591 5 LOCAL JUNK_SEGMENT 3 i BBLOCK; ! address of block to deallocate 

; 605 1338 5 JUNK_SEGMENT = .NEXT_SEGMEN 

; 606 1593 5 NEXT-SEGMENT = .NEXT SF CMENTEWCBSL LINK); 

; 607 1594 5 KERNEL_CALL (REMOVE_QINDOW, .JUNK_SEGMENT); 

; 608 1595 4 END; 

; 609 1596 4 

; 2i9 1330 ; END; ! end of block HEADER_CHECK 

3 §l2 1599 3 ! Map any additional file headers or rebuild the Last window if cleaning up 

3 615 1600 3 ! from an extend operation. 

: 614 1601 ; i 

; 615 1602 

: 616 1603 3 WHILE 1 DO 

s 617 1604 4 BEGIN 

; 618 1605 4 KERNEL CALL (TURN WINDOW, .WINDOW_SEGMENT, .HEADER, 1, .FCBCFCBS$L_STVBN)); 

; 619 1606 4 tr . CLEANUP_FLAGSCCLF _INCOMPLETE]~ 

; 620 1607 4 THEN 

; 621 1608 5 BEGIN 

: 622 1609 5 KERNEL_CALL (MARK INCOMPLETE, - CURRENT_WINDOW) ; 

; $7 1919 ? ERR_EXTT (SS$_EXBYTLM); 

: 625 lore 4 IF .FCBEFCBSL_EXFCB) EOL 0 THEN EXITLOOP 0; 

: 656 161 4 UNTIL » WINDOW” 1 egg UCBSL LINK] EQL 
: 627 1614 4 D0 WINDOW SEGMENT = BIND SEGMENT CUCBSL LINK); 
; 628 1615 4 FCB = -FCBCFCBS BSL EXFC 
; 44 1616 4 HEADER = READ_HEADER (0, .fct5?; | 
; 6350 1617 END; 

: 631 1618 
° O% 1619 WINDOW_SEGMENT = .NEW -INeM AUCRSL LINK]; 
s 65 1620 UNTIL TWINDOW_ SEGMENT EQL 

3; 634 1621 dO 

; 635 16 § 4 BEGIN 
; 6356 16 & KERNEL_CALL e WINDOW, . WINDOW SEGMENT "ages _FCBCFCBSL_WLBLI); 
> 637 1624 4 WINDOW" SE GHENT. > ~ WINDOW _SEGMENTCWCBSL_LINK] | 
; 638 1625 ; END; 
; 639 1626 
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KERNEL _CALL (MARK_COMPLETE, .CURRENT_WINDOW); 
RETURN; 


e no special 


Third case; the file was never nae fel ph mapped. For th seat phe 
S$ associate 
sar 


' < 
' precautions need to be taken. Simp Y loop oe all the 
nd s e 


with the file, and create as many window segments as neces ° 

FCB = .PRIMARY_FCB; 

WINDOW_SEGMENT~= .CURRENT_ WINDOW; 

KERNEL_CALL (MARK_CATHEDRAL, .WINDOW SEGMENT); !build cathedral windows 

: Now build the new windows using the original primary window as the base 
4 ! for the new window segments. This is necessary to aviod having to mung 
4 : the primary window address which may reside in several places. It also 
4 ' means that if en error occurs, the new window created will be valid, but 
4 it will not be the same as it started out. 

UNTIL .FCB EQL 0 

dO 

BEGIN 
5 HEADER = READ_HEADER (0, .FiB); 
5 UNTIL .WINDOW-SEGMENTCWCBS$L_LINK] EQL 0 
0 DOW SEGMENTCWCBSL_LINK]; 

5 KERNEL CACL (TURN WINDOW, .QINDOW SEGMENT, .HEADER, 1, .FCBCFCBSL_STVBN)); 
5 If CLEANUP_FLAGSECLF _INCOMPLETE J 


BEGIN 
KERNEL_CALL (MARK INCOMPLETE, . CURRENT WINDOW); 
ERR_EXTT (SS$_EXBYT.M); 


ND 
FCB = .FCBCFCBSL_E”* CB); 
END; 


INDOW_SEGMENT = .CURRENT_WINDOWCWCBSL_LINK); 
NTIL <WINDOU_SEGMENT EQL~O 


oce 


BEGIN 
KERNEL_CALL (ADD_WINDOW, .WINDOW SEGMENT, .PRIMARY_FCBLFCBSL_WLBLJ); 
WINDOW SEGHENT =" .WINDOW_SEGMENTCWCBSL_LINKI; 


KERNEL_CALL (MARK_COMPLETE, .CURRENT_WINDOW); 
RETURN? 
£ 


ND; ! end of routine REMAP_FILE 
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-EXTRN DEALLOCATE, READ HEADER 
EX TURN_WINDOW, MARR_COMPLETE 
~-EXTRN MARK INCOMPLETE 

-EXTRN GET _MAP_POINIER 

-EXTRN BUGS_WCBFCBMNG 


o 
oa 
~ 
- 


FILE, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
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ACPCNTRL 15-Sep-19 AX-11 Bliss-32 V4.0-742 Page 20) ALL 
v04000 14-Sep 71984 13: 36: 38 ERT Tx. SRCJACPCNTRE B32: ' ay v04 
52 60 D0 00164 MOVL (20), WINDOW_ SEGMENT : 
6B 1300167 248:  BEQL 32 > 1620 | 
50 08 AA D0 00169 MOV BCBASE), RO > 1623) 
14 AO DD 190 PUSHL  20(RO) : | 
52 DD ot PUSHL WINDOW SEGMENT : | 
0000v CF 02 FB 0017 CALLS #2, ADB_WINDOW : 
52 20 A2 00 0017 MOVL $5 (WINDOW. SEGMENT), WINDOW_SEGMENT > 1624) 
EA 11 00178 Bre 24s ; 1620| 
55 08 AA DO 0017D 25$:  MOVL (BASE), FCB > 1636 | 
52 00 BE D0 00181 MOVL a0(SP), WINDOW_SEGMENT : 1637 
52 DD 00185 PUSHL WINDOW’ SEGMENT ; 1638) 
0000v CF 0] FB 00187 CALLS #1, MARK_CATHEDRAL : 
5 p5 0018¢ 268:  TSTL FCB : 1647 
3¢ 13 001 8E BEQL 318 : 
5 DD 0019 PUSHL FCB : 1650 
7E D4 00192 CLRL -(SP) : 
00006 CF 02 FB 00194 CALLS #2, READ_HEADER : 
59 50 D0 00199 MOVL RO, HEADER : 
20 A2 D5 0019C 27$:  TSTL  32¢WINDOW SEGMENT) > 1651) 
06 13 0019F BEQL 28 ; 
52 20 A2 DO O01A1 MOVL § 32(WINDOW SEGMENT), WINDOW SEGMENT : 1652 
F511 OO1A5 BRB 27$ : 
2¢ AS DD OO1A7 28$: = PUSHL 44(FCB) : 1653 
01 DD OO1AA PUSHL #1 ; 
0204 8F BB OOTAC PUSHR  #*M<R2,R9> : 
00006 CF 04 FB 00180 CALLS #4, TURN WINDOW ; | 
OD 6A OA €E1 001B5 BBC #16, (BASE), 30$ i 1954) 
00 BE DD 001B9 29$:  PUSHL a0(SP) : 1657 
0000G CF 01 FB 001BC CALLS #1, MARK_INCOMPLETE ; 
2A14 «8F_ BF 001C1 CHMU =: #10772 : 1658 
04 001C5 RET : 
55 Oc AS DO 001C6 30$:  MOVL 12(FCB), FCB : 1660 
CO 11 OO1CA BRB 26$ : 1647 
50 00 BE DO OO1CC 31$:  MOVL a0(SP : 1663 
52 20 0 b9 00100 MOVL 3¢(R0), WINDOW_SEGMENT ; 
14 13 .001D4 32$: BEQL 33$ : 1664 | 
50 08 AA DO 001D6 MOVL  8(BASE), RO > 1667 
14 AQ DD OO1DA PUSHL 20(RO) ; 
52 DD 001DD PUSHL WINDOW SEGMENT ; 
0000v CF 08 FB OO1DF CALLS We ADB_ WINDOW ; | 
52 20 A2 DO O001E4 MOVL §§ 32(WINDOW SEGMENT), WINDOW SEGMENT : 1668 
EA 11 OO1E8 BRB 32$ : 1664 
00 BE DD OO1EA 33$:  PUSHL a0(SP) : 1671 
00006 CF 01 FB OO1ED CALLS #1, MARK_COMPLETE ; 
04 001F2 ET > 1674 | 
; Routine Size: 499 bytes, Routine Base: $CODE$ + 0155 | 


1 Bliss-32 V4.0-742 Page (8 


2 
vo4-000" 1$-sep-1984 $3:36:08 | EPNT x sBEdREpearkt 83504 
mM 


: 689 1675 1 GLOBAL ROUTINE LOCK_VOLUME (FUNC) : L_NORM = 
; 690 1976 1 

; 691 1677 1 S44 

; 69 1or8 1! 

3; 69 1679 1 ! FUNCTIONAL DESCRIPTION: 

: 694 1680 1! 

; 695 1681 1! This routine either locks or unlocks the current volume (or volume 
: 696 108¢ 1! set), as indicated by the function argument. Tnis routine must be 
; 697 1685 1! called in kernel mode. 

; 698 1684 1! 

; 699 1685 1 ! CALLING SEQUENCE: 

; 700 1686 1! LOCK_VOLUME (ARG1) 

: 701 1687 1! 

3; 1688 1 ! INPUT PARAMETFRS: ‘ 

; 70 1689 1! ARG1: ACPCONTROL subfunction code 

: 704 1690 1! 

3 705 1691 1 ! IMPLICIT INPUTS: 

3.6 Oe 1008 ; § CURRENT_VCB: VCB of volume 

s ror 1693 1! 

; 708 1694 1 ! OUTPUT PARAMETERS: 

; 709 1695 1! NONE 

3; 710 1696 1! 

: 711 1697 1 ! IMPLICIT OUTPUTS: 

; Tie 1698 1! NONE 

: Fis 1699 1! 

> 714 1700 1 ! ROUTINE VALUE: 

3 73 1701 1! 1 

3 76 1702 1! 

s 717 1703 1! SIDE EFFECTS: — : 

s 718 1704 1! lock bit in VCB either set or cleared 
3; «719 1705 1! 

: 720 1706 1 !-- 

s er 1707 1 

s fee 1708 2 BEGIN 

s es 1709 2 

: 724 1710 2 BIND_COMMON; 

; 725 1711 2 

; 726 AL 2 EXTERNAL ROUTINE 

3; ve? 1713 2 ALLOCATION_LOCK : L_NORM, 

3 vee 1714 2 ALLOCATION_UNLOCK : L_NORM, 

: 729 1715 2 DEQ LOCK : L_NORM, ! dequeue a lock 
: 730 1716 2 TAKE_BLOCK_LOCK : L_NORM; 

3 73) 1717 2 

: ers 1718 § LOCAL 

OES 1719 RVT : REF BBLOCK; 

3; 734 1720 2 

3s 39 1721 IF .FUNC EQL FIBSC_LOCK_VOL 

; 736 \7s¢ THEN 

3 737 172 BEGIN 

; 738 1724 IF .BLOCK_LOCKID EQL 0 

: 739 1725 THEN 

3; 740 1756 4 BEGIN 

3 761 1727 4 TAKE _BLOCK_LOCK (); 

3 ree 1728 4 

3; 74 1729 4 IF .CURRENT_VCB CVCB$W_RVN) EQL 0 

: 7446 1750 4 THEN 

3 «745 1731 4 CURRENT_VCB CVCB$V_NOALLOC] = 1 


ACPCNTRL 
v04-000 


og ELSE 

74 BEGIN 

re RVT = .CURRENT_VCB CVCBS$L_RVT); 

4 aa J FROM 1 TO .RVT CRVTSB_NVOLSJ 

731 BEGIN 

7? ¢ LOCAL 

Pe? Z UCB : REF BBLOCK; 

03? ri UCB = .VECTOR CRVT CRVTSL_UCBLSTJ, .J-1); 
bee 4 IF .UCB NEQ 0 

£28 : a -BBLOCK CUCB CUCBSL_DEVCHAR], DEVS$V_MNTJ 
760 & BBLOCK C.UCB CUCBSL_VCB], VCB$V_NOALLOC] = 
761 & ND; 

£06 & END; 

76 & END; 

764 5 END 

765 5 SE 

766 5 BEGIN 

767 5 LOCAL 

N93 2 FREE_SPACE; 

770 5 IF .CURRENT_VCB CVCB$W_RVNJ EQL 0 

771 5 THEN 

772 5 BEGIN 

773 H es VCB CVCBSL_SBMAPLBN) NEQ 0 


Be Se Se Se Se Be Se Se Se Se Se Ge Be Se Se Ss Se Ge Se Ge Ge Ge Ge Ge Be Se Ge Ge Se Ge Ge Se Fe Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Sse ests tesee 
~N 
~N 
> 
ee ee ed ed ee a ce ee a ae ce a a a ee ce ae a ce a a a ce ce ae ee ec ee a ee ce ce ee ee cae ee ee ee ed 
Se it Din tn Dm tn tn, Bien, mn Die eB Bit Si Si Bi Si Bi Bi dpe SB bt te het inte tnt teen ee 


DNDAUNE WN 0 OONOAUES WN $0 COONAN EWN O ODNAU EWN (OVO ODNAU EWN" OOONOUS wr 
PED PPM BB BA TB BB BB AAAI UA AAAAOAAAOOUIMUIUE 
mm 


775 6 CURRENT_VCB CvcBsy NOALLOC) = 0; 

776 6 IF -BLOCK_LOCKID NEQ 07 

777 6 THEN 

778 6 A 

779 6 REE_SPACE = oggeenent _VCB CVCBSL_FREE); 
780 6 ALLOCATION L K 0; 

781 6 CURRENT vcBe PrcesL: FREE] = .FREE_SPACE; 
ree 6 ALLOCATION_UNLOCK 7); 

784 7 DEQ LOCK (. BLOCK _LOCKID); 

785 7 BLOCK _t KID = 0; 

786 7 END 

787 7 END 

788 7 

789 7 BEGIN 

790 7 RVT = CURRENT vcB CVCBSL_RVT) 

791 7 INCR J F 1 To .RvT CrvT$B “NUOLS) 

ey 7 DO 

79 7 BEGIN 

794 8 LOCAL 

795 H uCcB; 

796 

797 8 UCB = .VECTOR CRVT CRVT$L_UCBLSTJ, .J-1); 
798 8 IF .UCB NEQ 0 

799 8 HEN 

800 ef BEGIN 


CURRENT_UCB = .UCB; 


<> 


_rn 


oercaret 18-58 ~ge0n 1386 $3:30 338 rh 11 Bliss-32 V4.0-742 


-0 14-Sep-19 Fi x see ait CPCNTRL.B32;1 
: 805 1789 6 CURRENT_VCB = .CURRENT_UCB CUCBSL_VCB); 
: 805 1791 6 IF .CURRENT_VCB CVCBSL_SBMAPLBN] NEQ 0 
: Boe 1538 3 = N CURRENT. VCB Cvceey woaLLoc’ 0 
; 508 1598 3 IF .BLOCK LocntD NEQ ms 
: 810 1796 $ THEN ’ 
Bt 1598 7 FREE_SPACE = .CURRENT_VCB CVCBSL_FREE); 
: : =e 
3 B18 1799 7 ALLOCATION_LOCK (); 
> 814 1800 7 CURRENT vCB- CVCBSL FREE] = .FREE_SPACE; 
; 815 1801 7 SE OAT TOR UNLOCK 7%); 
: 816 180¢ é 
: 817 1803 5 END; 
: 818 1804 4 END; 
: 819 1805 4 
; 820 1806 4 IF .BLOCK_LOCKID NEQ 0 
: 821 1807 4 THEN 
3 822 1808 4 DEQ_LOCK (.BLOCK_LOCKID); 
3: 8235 1809 4 
: B24 1810 4 BLOCK_LOCKID = 0; 
; 825 1811 4 
: 826 1si¢ 3 END; 
: 827 1813 3 
; 828 1814 : END; 
: 829 1815 
; 830 1816 2 RETURN 1; 
: 831 1817 2 
; 832 1818 1 END; ! end of routine LOCK_VOLUME 
.EXTRN ALLOCATION_UNLOCK 
.EXTRN DEQ_LOCK, TAKE_BLOCK_LOCK 
OOFC 00000 ENTRY LOCK VOLUME, Save R2,R3,R4,R5,R6,R7 
56 FF7C CA 9E 90002 MOVAB -132TBASE), R6 
55 98 AA 9E 0000 MOVAB 7104 (BASE), 5 
07 04 AC 01 00008 CMPL FUNC, # 
3E if OOOF BNEQ 
6 05 00011 TSTL (R6) 
7 12 0013 BNEQ 4 
00006 CF 00 FB 9 1 CALLS #0 TAKE BLOCK LOCK 
50 65 D0 1A MOVL r5), R 
OE AO B 99 1D TSTwW «=: 14¢RO) 
06 12 000 BNEQ  ~'1$ 
0B AO 1 8 99 BISB2 #16, 11(RO) 
24 11 BRB 4 
5 20 A po 028 1$: MOVL 32(RO), RVT 
5 A2 9A 9 MOVZBL J1(RVTS, R3 
51 04 CLRL ! 
14 11 BRB $ 
50 40 A241 p 2$: MOVL pete: ucB 
9 BEQL 
08 3a AO E BBC 58(UCB), 3$ 
50 34 Ad DO 0004 MOVL g (uCB), RO’ 
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214 bytes, Routine Base: $CODES + 0348 


; Routine Size: 


1 

2 | 
ACPCNTRL 18-56 =1984 23:52:5 AX-11 Bliss-32 V4.0-742 Page 25) 
v04-000 127808- 1382 $3:38 03 F11X.SRCJACPCNTRL.B32;1 ’ (6) | 
3 te 1819 1 ! The remaining routines must be locked into the working set as they run 
3 S 5 : » : ! at an elevated IPL. 
P | 
3 637 ' ¢ : LOCK_CODE; 
; 839 18 4 1 ROUTINE MARK_CATHEDRAL (WINDOW) : NOVALUE = | 
; 840 1825 1 
; 841 1826 1 !44 | 
; «484 1827 1! 
; «84 1828 1 ! ROUTINE DESCRITION: 
; 844 1829 1! 
; 845 1830 1! This routine is used to mark the specified window as a Cathedral 
3 78] te : window. It must be execured in kernel mode. 
: 848 1838 1 ! CALLING SEQUENCE: 
: 849 1834 1! MARK_CATHEDRAL (ARG1) 
; 850 1835 1! 
; «4851 1836 1 ! INPUT PARAMETERS: 
; S26 1837 1! ARG1: address of the window to mark 
3 8 1838 1! 
3: 854 1839 1 =! IMPLICIT INPUTS: 
; 855 1840 1! none 
; 856 1841 1! | 
3 857 1946 1 ! OUTPUT PARAMETERS: 
; 858 1843 1! none 
; 859 1844 1! 
; 860 1845 1 ! IMPLICIT OUTPUTS: 
: 861 1846 1! none 
3 rg) 1847 1! 
; 86 1848 1 ! ROUTINE VALUE: 
3; 864 1849 1! none | 
: 865 1850 1! | 
3; 866 1851 1 ! SIDE EFFECTS: 
; 867 1836 1! none | 
; 868 1853 1! 
3; 869 1854 1 !-- | 
> 870 1855 1 
; 871 1856 2 BEGIN 
; 872 1857 2 
: 873 1858 2 MAP ; | 
3; 874 1859 2 WINDOW : REF BBLOCK; ' address of the window to mark 
; «875 18690 
s 67 1961 LOCAL ‘ 
; 87 | 66 : REF BBLOCK; ' copy of the window address 
: 878 186 
3; 879 1864 P = ,WINDOW; 
; 880 1865 
; 881 1366 SET_IPL (IPL$_SYNCH); 
; 488 186 
; 88 1868 IF NOT .PCWCBSV_COMPLETE) 
3: 884 1869 THEN 
3; 885 1870 BEGIN 
3 ty] 1871 PCWCBSL_STVBN) = 1; 
; 88 1376 PCWCBSW_NMAP) = 0; 
; 888 187 END; 
; 4889 1874 
; 890 1875 PCWCBSV_CATHEDRAL] = 1; ! mark the window 


ALL 
VO4 


Seca 15- se0-19 138% $3: 36:33 AX-11 Bliss-32 V4.0-74 Page 26 ALL 


V 14- F1IX. sre RCJAC CPCNTRL .B32; (6) voé 
; +891 1 a6 
: 899 187 SET_IPL (0); 
: 9 1 4: 
3 94 187 RETURN; 
: 895 1880 
; 896 1881 END; ! end of routine MARK_CATHEDRAL 
-PSECT S$LOCKEDC1$,NOWRT,2 | 
0000 00000 MARK_CATHEDRAL: 
«WORD Save nothing : 1824 
04 aC 00 00002 MOVL NDOW, P 3 1864 
12 DA 00006 TPR , wb ; 1866 
07 0B AO 5 £0 00009 BBS #5, 11(P), 1$ : 186 
2c = AO 1 pO 0000 MOVL #1, 44(P) 3; 1871 
16 AO B84 0001 CLRW (P) 3; 1872 
0B AO 40 8F 88 00015 1$ BISB2 4, 11(P) 3 1875 
12 DA OOO1A MTPR 0, #18 : 1877 
04 0001D RET : 1881 
; Routine Size: 30 bytes, Routine Base: $LOCKEDC1$ + 0000 
| 


2 
AcpENTRL 1B-Sep-1986 25:52:55 yay 


; 898 1888 1 ROUTINE ADD WINDOW (WINDOW, QUEUVE_HEAD) : NOVALUE = 

; 899 18835 1 

; 900 1884 1 !44 

; 901 1885 1! 

; 8 1338 : FUNCTIONAL DESCRIPTION: 

; 904 1888 1 3 This routine adds the window specified into the queue specified. This 
; 905 1889 1! routine must be called in kernel mode. 

; 906 1890 1! 

; 907 1891 1 ! CALLING SEQUENCE: 

; 908 1836 . 3 ADD_WINDOW (ARG1, ARG2) 

; 909 1895 1! 

; 910 1894 1 ! INPUT PARAMETERS: 

; 911 1895 1! ARG1: address of the window segement to add 

: at 1896 1! ARG2: address of the queue hea 

; 91 1897 1! 

; 914 1898 1! IMPLICIT INPUTS: 

s 915 1899 1! none 

; 916 1900 1! 

s 917 1901 1 ! OUTPUT PARAMETERS: 

; 918 1358 1! none 

; 919 1903 1! 

; 920 1906 1 ! IMPLICIT OUTPUTS: 

; 921 1905 1! none 

s Deez 1906 1! 

: 923 1907 1 ! ROUTINE VALUE: 

: 924 1908 1! none 

; 925 1909 1! 

: 926 1910 1 ! SIDE EFFECTS: 

s 927 1911 1! none 

; 928 1316 1! 

: 929 191 1 !-- 

: 930 1914 1 

; 931 1915 2 BEGIN 

; 932 1916 2 

; 933 1917 2 MAP 

: 934 1918 2 WINDOW : REF BBLOCK, ' address of the window ot at 
; eee 1333 § QUEUE __HEAD : REF BBLOCK; ! address of the queue hea 
; 937 1921 INSQUE (.WINDOW, .QUEUE_HEAD); 

; 938 1956 

; 939 19 RETURN; 

: 940 13S¢ . 
: 941 1925 1 END; ! end of routinr ADD_WINDOW 


0000 00000 ADD_WINDOW: 
Save no 


» WORD thin 
08 BC 04 BC OE 0000 INSQUE @WINDOW, @QUEUE _HEAD 
04 0000 RET 


; Routine Size: 8 bytes, Routine Base: S$LOCKEDC1$ + OO1E 
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Na INN 


ROUTINE REMOVE WINDOW (WINDOW) : NOVALUE = 
i 


FUNCTIONAL DESCRIPTION: 


ernel mode. 


CALLING SEQUENCE: 
REMOVE WINDOW (ARG1) 


INPUT PARAMETERS: 
ARG1: address of the window to remove 


IMPLICIT INPUTS: 
none 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 


SIDE EFFECTS: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

! OUTPUT PARAMETERS: 
none 
i 

i 

' 

i 

i 

i 

none 
le 


BEGIN 


WINDOW : REF BBLOCK; 
LOCAL 


EXTERNAL ROUTINE 
DEALLOCATE; 


REMQUE (.WINDOW, DUMMY); 
DEALLOCATE (.WINDOW); 


RETURN; 


—BRIFIAIFININIAIFAIPI/IDFIDAII DIDI IAI a i i a dd od od od 


END; 


0000 00000 REMOVE _WINDOw: 
- WORD 


This rou.ine removes the specifed window from the queue. It then 
roceeds to deallocate the window. This routine must be called in 


! address of the window 
! temp storage for queue entry address 


! deallocate system dynamic memory 


! end of routine REMOVE_WINDOW 


Save nothing 


=32 V4.0-742 
CNTRL.B32;1 


| 


V04=000" 


; Routine Size: 


1$-$80-1986 25:8:5§ NGL aBUdRerZ W853 Page 39 
50 Re OF preave ny ty al DUMMY ; 1370 
a: i 


PU 
00006 CF 0 CALL , DEALLOCATE 


15 bytes, Routine Base: S$LOCKEDC1$ + 0026 


SS ee } 


I 
10 
IP 
IR 
JI 
JI 


2323 


2 
04000" =$3p-1986 12:30:08 EFI 


: 994 1376 1 ROUTINE LAST_SEGMENT (WINDOW) : NOVALUE = 

; 995 1977 1 

; 996 1308 1 S44 

; 997 1979 1! 

: 43 1381 ! FUNCTIONAL DESCRIPTION: 

; 1000 19 ¢ 1! This routine zaps the Link pointer of the specified window segment 
3 1903 ns + : } therefore making it the last segment in the Cathedral window. 
; 1008 1985 1 ! CALLING SEQUENCE: 

3: 1004 1988 1! LAST_SEGMENT (ARG1) 

; 1005 1987 1! 

; 1006 1986 1 ! INPUT PARAMETERS: 

: 1007 1989 1! ARG1: address of the window segment 

: 1008 1990 1! 

3 1009 1991 1°! IMPLICIT INPUTS: 

3 1010 1338 1! none 

3: 1011 1993 1! 

; 1olg 1994 1 ! OUTPUT PARAMETERS: 

3; 101 1995 1! none 

> 1014 1996 1! 

: 1015 1997 1 ! IMPLICIT OUTPUTS: 

3 1016 1998 1! none 

3; 1017 1999 1! 

; 1018 2000 1 ! ROUTINE VALUE: 

; 1019 2001 1! none 

: 1020 a4 . 3 

3; 1021 003 1 ! SIDE EFFECTS: 

3; 1022 2006 1! none 

: 1023 2005 1! 

3; 1024 2006 1 !-- 

: 1025 2007 1 

: 1026 2008 BEGIN 

: 1027 2009 

; 1028 2010 MAP 

: 1029 2011 WINDOW : REF BBLOCK; ! address of the window segment 
: 1030 sols 2 

3; 1031 15 2 WINDOWCLWCBSL_LINK] = 0; 

: 1032 2014 § 

: 1033 2015 RETURN; 

; 1034 2016 2 ; 

; 1035 2017 1 END; ! end of routine LAST_SEGMENT 


0000 00000 LAST_SEGMENT: 
-WORD Save nothing 


50 04 AC D0 00002 MOVL y IND OW RO 
20 =A0 Be 0006 CLRi 32(RO) 
4 00009 RET 


Routine Size: 10 bytes, Routine Base: S$LOCKEDC1$ + 0035 


; 1036 


2018 1 


2 
aCPCNTRL 1Fosepmtoms 25:52:55 ane BL iss-32 v4.0274 


; 1 5 


1 END 
0 ELUDOM 


oo 
nme 
ow 


PSECT SUMMARY 


; Size: 1117 code + 0 data bytes 
: e: 758. 

Elapsed Time: Ogi le. 8 
4 Lexemes/CPU-Nin: 50879 


327 pages 
; eee Sree benphote” 


; Name Bytes Attributes 

: SCODES 1054 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, Seeks Et badd U 

; SLOCKEDC1I$ 63 NOVEC,NOWRT, RD, EXE,NOSHR, LCL REL, CON,NOPIC,ALIGN(2) 

H Library Statistics 

; ae < oe ane oe eens SyEROLE cooweses Pages Processing 

: File Total ioaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32:1 18619 69 0 1000 00:01.8 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:ACPCNIRL/OBJ=OBJ$:ACPCNTRL MSRC$:ACPCNTRL/UPDATE=(ENH$:ACPCNTRL) 
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0167 Vax7ums v4_o C 


IGITA 
ONFID 


AL EQUIPMENT CORPORATION 
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-oe. 
V4.0 


AH-BT13A 


DIG 
VAX/VMS CON 


7 
I 


IGI 
ONF 


016 


